<!DOCTYPE HTML PUBLIC MULTICODE "-//W3C//DTD HTML-Multi 0.1 Beta//EN">
#!/usr/bin/perl -w
# LUPO (Lupo Useless Programming Operation)
# a program written
# in the holy trinity of languages
use strict; #or use visual basic
#include <stdlib.h>
#include <strings.h>
my $txt1='i\'ll be back';
my $txt2="sorry\n for the inconvenience";
my $name='lexi';
my $wife='beatiful'; #no - i'm not gonna post any more pictures...
my $life=$mywife; #notice the sophisticated ambiguity
szEssZeit[] = "sooner or LATER"; #hungarian notated pun for german readers
p*=malloc(random(void)); //no risk no fun!
strcpy(p,szEssZeit);
t1=new(#text)
t1.font="Courier New"
t1.fontSize=36
t1.text=p
i1=t1.image
(the stage).image.CopyPixels(i1,t1.rect+rect(304,119,304,119),t1.rect,[#ink:36])
updateStage
my @rest=($txt1,$txt2,$name);
foreach my $s (@rest)
{
doTheSameAsAbove(findANicePosition(),$s,[#useaSmallerFont:true])
--sorry i'm not gonna show you the source for this handy function
}
free(p*);
(if you're feeling nostalgic, browse the OLD STUFF
..or have a look at what I'm doing at my
new job >>>>
and
new hobby >>>>
..or if you're a developer,
download the source of RUNit and finally make a usefull program out of it)
..or have a look at what I'm doing at my
new job >>>>
and
new hobby >>>>
..or if you're a developer,
download the source of RUNit and finally make a usefull program out of it)